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cccccccce LL UU UU SSSSSSSS RRRRRRRR EEEEEEEEEE PPPPPPPP LL YY YY 
ccececcece LL UU UU SSSSSSSS RRRRRRRR EEEEEEEEEE PPPPPPPP LL YY YY 

cc LL UU uu SS RR RR EE PP PP LL YY YY 

cc LL UU uu SS RR RR EE PP PP LL YY YY 

cc LL UU UU SS RR RR EE PP PP LL 7 

cc LL UU UU SS RR RR cE PP PP LL 77. 

cc LL UU UU SSSSSS RRRRRRRR EEEEEEE PPPPPPPP LL YY 

cc LL UU UU SSSSSS RRRRRRRR EEEEEEEE PPPPPPPP LL YY 

cc LL UU UU SS RR RR EE PP LL YY 

cc LL UU UU SS RR RR EE PP LL YY 

cc LL UU UU SS RR RR EE PP LL YY cece 

cc LL UU UU SS RR RR EE PP LL YY cece 
CCCCCCCC LLLLLLLLLL §=UUUUUUUUUU «SSSSSSSS RR RR EEEEEEEEEE PP LLLLLLLLLL YY cece 
CCCCCCCC = LLLLLLLLLL 9 UYUUUUUUUUU §«SSSSSSSS RR RR EEEEEEEEEE PP LLLLLLLLLL YY ceee 

LL III] SSSSSSSS 

LL II1I] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] $$ 

LL I! SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 
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H 1 8 1 MODULE OPCSCLUSREPLY « aneuage (BLIS$32) 

; ‘ 0 : IDENT = 04-000" - | 
it 008 ie | 
: $ 8908 aaa aaa aati latina | 
H ‘@ | 
; 8 000 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; SS 000 '* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
3 19 Bare ALL RIGHTS RESERVED. * 
3 : * 
; \¢ pore '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 1 001 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 14 0014 Q !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

; 15 0015 0 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | 
: 16 0016 QO !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

i 0017 0 is TRANSFERRED. * | 
3 ‘ . 

: 19 0019 8 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 Bn59 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

: $1 b053 8 i. CORPORATION. * 

; H w 

; $8 00 : Q !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; $e 8 ¢ 8 : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

Ps ; ea 

; @ 0026 0 !* * 

HY i 00 7 0 LRA REAR RAERARAEARRAARAAERAAREAAAAAAAEAEAEEAAEAAEEAAAAAAAARAEEERARERERRAEEREEE 

§ 0028 0 

; 7 94 QO !++ 

; 0 0030 O ! FACILITY: 

3 1 0031 0! 

; 3 OoRg 0! OPCOM 

; 3 003 8 ! 

: 34 site ' ABSTRACT: 

; 2 0035 0! : : 

; 0036 0! This module contains the specialized logic to service 

3 4 th 8 a particular type of request sent by a user to OPCOM. 

>. 0039 0 ! Environment: 

: 40 0040 0! 

: O41 0041 0! VAX/VMS operating system. 

: $¢ 94 Q ! 

> 6 04 ' Author: 

2 44 44 4 

3; | (45 45 ! CW Hobbs 

; &% 0046 : 

3; «647 0047 ' Creation date: 

.) oe R268 ! 

; «649 gpe ‘ 16-JUL-1983 | 
o<; 50 : | 
wy. 0051 ' Revision history: 

: 26 O36 : 
ee 05 : v03-003 CWH3169 CW Hobbs 5-May-1984 

; 2 Boe ; Second pass for cluster-wide OPCOM: P 
5 5 55 : - Change to use the queued brkthru mechanism. Instead of 
3 8 ite} performing a brkthru here, call REPLYBRD_BRKTHRU_QUEUE. 


ORE SELUSREPLY 18-60-1964 01:28:59 yaK-dN BLig9-32 U4 0-742 Page 2 
3 38 J v03-002 rte CW Hobbs -1983 
Improve S$BRKTHRU taseutS. use VM jacket ee 
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BEGIN 


LIBRARY ‘SYSS$LIBRARY: LIB. L32'; 
LIBRARY ‘LIBS:OPCOMLIB’; 


FORWARD ROUTINE 
CLUSREPLY_RPYBRD_HANDLER 


m 7 
1ec$ep-19ee 12:80:40 EOPcOn. SR 


' Start of CLUSREPLY 


NOVALUE, 


CLUSREPLY™ RPYBRD-LOCAL_HANDLER : NOVALUE. 


CLUSREPLY_RPYNOT_HANDLER 
EXTERNAL ROUTINE 

CLUSCOMM_ . 

DUMP_LOG_ " 
REPLYBRD_BRKTHRU_QUEUE 
REPLYBRD_FORMAT, 
REPLYBRD_10; 


EXTERNAL 
LCL _NODENAME 


D 
GLOBAL _STATUS 


NOVALUE ; 


eroSRePLy 203 31 


<OoO 


PET eS aS SE Sood eens bop eae | 


OPCSCLUSREPLY 16-Sep-1984 01:23:3 AX-11 Bliss-32 V4.0-74 Page 4| 
v04 12-80-1382 93:85:25 OPCOM. SRCICLUSREPLY -B3 31 . (3) 
6 : GLOBAL ROUTINE CLUSREPLY_RPYBRD_HANDLER (BUFFER_DESC : Sref_bblock, MSG : $ref_bblock, LEN) : NOVALUE = 
88 08 1 +s | 
89 008 : Functional description: 
91 0089 This routine processes a CLM__RPYBRD message. This message is sent to this | 
4 090 OPCOM by an OPCOM process on another node in response to a REPLY /ALL, REPLY /USER 
9 0091 or REPLY /TERMINAL command. The module formats the message and broadcasts it 
94 B38 to the local terminals. | 
95 009 ' 
96 0094 ' Input: 
97 095 
98 94 BUFFER_DESC : The address of a quedvere buffer descriptor that 
944 describes the buffer containing the message. 
0099 i Implicit Input: 
0100 
None. 
None. 


i Implict output: 
Messages might be sent to terminals. 
i Side effects: 


' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
! 
' 
' 
' 
. Output: 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
; Routine value: 
' 
' 


None. 


BEGIN ! Start of CLUSREPLY_RPYBRD_HANDLER 


LOCAL 
Status; 


“von 


heck the version number of the message. If the message is from any other version, 
imply ignore it. 


-msg Cclm_b_ds_version] NEQ rpybrd_k_ds_version 
RETURN dump_log_file (.buffer_desc, ZASCID ‘CLM__RPYBRD mismatch’); 
Format and broadcast the message 


WN —OOSNOUESWN —OOONOUE WN "Oo 0OOn 


if replybrd_fornat (.msg, lcl_nodename) 
replybrd_io (.msg, \cl_nodename) ; 


Bee Be Be Be Be Se Se Se Se Ge Se Ge Ge FH Se Be Ge See. Ge Se Ge Se SF TH Gs Ge Ge Be Ge Ge Ss Ge Se Ge Ge Se Ge Se Ge Ss oe Se SESH SH Ss Oe Oe Se HSE SESH Oe ee 
a a ee ee ELL Lee eS 

MSWN—OO 
em ed et ad od do od od = =) wd 


fe lele lolol elelelelelalel ele olelelelolejalelelalelalelelelelelelelolelololololo) 
AWW WAIN WIWI AI INIPIPINIPODINIDYD 2 2 OOO OS HS CDOOOOCOCOCOO 
SOOO NO NEW OOOO EWN OC OONOUE WN ("OOD ONOUS Wh 


mC COnNOu 


' 
! Release any message 
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B 
4 ae ell Jp~sen=1 386 91 ¢3:78 AX-11 Oh igen se yh On 238 
v04-0 14-Sep-1984 12:50:4 OPCOM.SRCJCLUSREPLY.B32;1 
> 143 0141 : 
> 144 B196 IF _.msg Crpybrd_a_format_ptr] NEQ 0 
; «(145 bie THEN 
; 148 Slee OPCSFREE_VM (msg Crpybrd_l_format_len], msg Crpybrd_a_format_ptr]); 
: 148 0146 2 RETURN; 
> (149 0147 1 END; ! End of CLUSREPLY_RPYBRD_HANDLER 


-TITLE OPCSCLUSREPLY 
-IDENT \V04-000\ 


-PSECT S$PLITS,NOWRT,NOEXE,2 
P.AAB: .ASCII \CLM__RPYBRD mismatch\ 


«LONG 17694740 
«ADDRESS P.AAB 


-EXTRN CLUSCOMM_SEND, DUMP_LOG_FILE 
-EXTRN REPLYBRD_BRKTHRU_QUEUE 
-EXTRN REPLYBRD_FORMAT 

~EXTRN REPLYBRD_1IO, LCL_NODENAME 
-EXTRN NOD_HEAD? GLOBAL_STATUS 
-EXTRN OPCSFREE_VM 


.PSEC) $CODE$,NOWRT,2 
000 ENTRY CLUSREPLY_RPYBRD_HANDLER, Save R2 
CMPB e(R0), rT 


P.AAA 
PUSHL BUFFER DESC 
ee #2, DUMP_LOG_FILE 


1$: PUSHAB LCL_NODENAME 


PUSHL Re 
ne, REPLYBRD_FORMAT 


73 69 6D 20 44 52 42 59 50 52 2 
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; Routine Size: 67 bytes, Routine Base: $CODE$ + 0000 
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OO OOOO OO OOO W000 09 09 09 09 W909 SI NSIS NI NNN IO AAA AAAAAOA MINIT) 
09 09 09 09 00 09 09 09 08 SI NI NI SII NNO PAO 
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15-sep-1984 01833 ree Bliss-32 V4.0-74 


14-Sep-19 
GLOBAL ROUTINE CLUSREPLY_RPYBRD_LOCAL_HANDLER (BUFFER_DESC : $Sref_bblock, MSG : Sref_bblock, LEN) : 


le 
Functional description: 


Input: 


i 
' 
describes the buf 
Implicit Input: 

None. 

Output: 

; None. 

Implict output: 

i 
1 

i 
i 
! 

i 
i 
i 
i 
le 


Side effects: 
None. 
Routine value: 


None. 


BEGIN 
LOCAL 
status; 


' 
! Check the version number of the message. 


simply ignore it. 


THEN 


POPGPOPIPOPOPPOPONONINONPOPONOPUPPIPUDINIDD 2 4 9 tt ss ss 
- 


OPCOM.SRCJCLUSREPLY.B32; 1 


This routine processes a CLM__RPYBRD LOCAL message. This message is sent to OPCOM 
~ 4 the REPLY /ALL, REPLY /USER and REPLY /TERMINAL command. The module determines 
whether the message should be sent to other cluster nodes. 


BUFFER_DESC : The address of a geet pd Ba ge bh died that 
er containing the message. 


Messages might be sent to other nodes in the cluster. 


! Start of CLUSREPLY_RPYBRD_LOCAL_HANDLER 


If the message is from any other version, 


if -msg Cclm_b_ds_version] NEQ rpybrd_k_ds_version 

RETURN dump_log_file (.buffer_desc, ZASCID ‘CLM__RPYBRD_LOCAL mismatch"); 
Make sure that the sender has OPER privilege 

IF wor -$Sbblock C(.buffer_desc Cdsc$a_pointer] + 4), prv$v_oper] 

RETURN dump_log_file (.buffer_desc, ZASCID ‘No OPER privilege’); 


i Well, looks good so far. Change the secondary operation code, and 
send it to other interested nodes. We don't have to worry about errors. 
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) 
+9 ee aul 16-S 
0 14-$ 
msg Cclm_b_clm_code] = clm__rpybrd; 
ifn Créybrd.v. broad resotestt 
EL cluscomm_send (-1, .len, .m 
TH 


sg) 
-msg rpybrd.v_broad_remstelst] 


aa nm 


mrrorororeororors 


mptr. : REF VECTOR C, BYTE); 

-msg Crpybrd_w_targ_node_len]; 

es are Irpybrd_w_targ_node_offJ;! Add offset to start of node items 
en 


mlen 
mptr 
WHILE . 
DO 


nuwo 


BEGIN 
ae eal CO] NEQ 5 ! If len <> 5, it isn't a csid and we are in trouble 


MMMM] 2 QO 


WO OONOA UE WIN 0 COONAN EWN $0 ODNAU EWN SOO ODVNAUE WI" ODOONOM 


BEGIN 
one tog. ite (.buffer_desc, ZASCID ‘'CSID Length not equal to 5'); 
EXxI TCOOP; 


c Luscomm_send (,(mptr (13), «len, .msg); 
eo = eee - 2: 

mptr = .mptr 3 

END; 

END; 


' 
Format and broadcast the message if it is destined for the local node 
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2e 
22 
22 
22 
2e 
$3 
$3 
23 . 
3 23 IF_.msg Crpybrd_v_broad_local] 
3 23 THEN 
3 23 BEGIN 
4 23 IF replybrd_format (.msg, lcl_nodename) 
4 23 THEN 
4 23 BEGIN 
4 24 msg (rpybrd_v_local_node] = true; ' Let the 10 routine know where we are 
4 24 replybrd_ io (Tmsg, Tcl_nodename); 
4 24 END; 
4 24 
4 24 } 
: st Release any message 
; $e os -msg (rpybrd_a_format_ptr] NEQ 0 
2 36 eu OPCSFREE_VM (msg Crpybrd_l_format_len], msg Crpybrd_a_format_ptr]); 
$2 25 
5 25 RETURN; 
25 25 END; ! End of CLUSREPLY_RPYBRD_LOCAL_HANDLER 


.PSECT $PLITS,NOWRT,NOEXE ,2 
1C P.AAD: ASCII \CLM__RPYBRD_LOCAL mismatch\<0><0> ; 


43 4F 4C SF 44 52 42 59 
00 00 1 § 
P.AAC: .LONG 17694746 : 


SF SF 40D 64C «(43 
68 65 74 6 69 6D 20 4C 41 
Q10EOO1A 
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\No OPER privilege\<0><0><0> 


17694746 


-ADDRESS P.AAD 
-ADDRESS P.AAH 


ASCII 
- LONG 


P.AAE: 


MT TN OFr- hr 


65 6C 69 76 69 72 70 20 52 45 
8 
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0148 | 


_RPYBRD_LOCAL_HANDLER, Save R2,R3,-; 


-PSECT $CODE$,NOWRT,2 
ENTRY CLUSREPLY 
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OPCSCLUSREPLY 
vOG=000 
; Routine Size: 180 bytes, 


8 
OPCSCLUSREPLY 1e-se 1984 01:23:3 AX-11 Bliss-32 V4.0-74 Page 10 0 
V04=000 132885 198s $2:8054 OPCOM. SRC ICLUSREPLY .839; 1 9° 65) Vv 
; 28 0 3 } GLOBAL ROUTINE CLUSREPLY_RPYNOT_HANDLER (BUFFER_DESC : $ref_bblock, MSG : $ref_bblock, LEN) : NOVALUE = ; 
; 260 o 2$ | }+ : 
3 2 8 2 ! Functional description: ; 
: 8 0 3 7 This routine processes a CLM__RPYNOT message. This message is sent to this ; 
+ 264 8 60 1! OPCOM by an OPCOM process on another node in response to a REPLY /NOTIFY : 
; 265 jae /TERMINAL command. The module formats the message and broadcasts it | : 
> 266 0 6¢ ,} to the specified terminal. ; 
: ser 0265 1! : 
; 268 0264 1 ! Input: : 
; $88 $362 ; } : : 
; 270 0266 1! BUFFER_DESC : The address of a meee buffer descriptor that : 
; sf psee } describes the buffer containing the message. ; 
; $78 0269 1°! Implicit Input: ; 
; 274 0270 1! : 
3 ar 0271 1! None. ; 
; 276 8556 1} : 
; err 0273 1 ! Output: 3 
; 278 0274 1! ; 
3 <a? 0275 1! None. ; 
; 280 0276 1! : : 
; 281 0277 1 ! Implict output: : 
; 282 0278 1! : | : 
3 6203 0279 1! Messages should be sent to a terminal. : 
; 284 oceo 3} i | 3 
> 285 0281 1 ! Side effects: : 
: 286 OSes 1! : 
; 287 0283 1! None. 3 
; 288 0284 1! ? : 
; 289 0285 1 ! Routine value: 3 
3; ew 0286 1! | : 
$s 6) 0287 1! None. : 
; eve 0288 1 !-- F 
: 293 0289 1 | 
> 294 0290 2 BEGIN ! Start of CLUSREPLY_RPYNOT_HANDLER ; 
: 299 0291 2 | : 
: 296 O598 2 LOCAL : 
3; er 0293 2 josh : VECTOR (4, WORD), : 
; 298 0294 2 msgdsc : VECTOR (2, LONG), : 
: 344 0295 2 trmdsc : VECTOR C2, LONG), 3 
; 300 0296 ptr, : 
3. 2 594 status; : 
; 2 0298 : 
; 30 5444 § ' : ; : 
; 304 0300 ! Check the version number of the message. If the message is from any other version, : 
A 303 Baas simply ignore it. : 
3 Jor 0308 IF .msg Cclm_b_ds_version] NEQ rpynot_k_ds_version : 
: 308 0304 THEN : : 
: 44 O302 RETURN dump_log_file (.buffer_desc, ZASCID ‘CLM__RPYNOT mismatch"); ; 
: 311 Babe Make descriptors for the two message components : 
; 315 0309 ptr = meg Crpynot_t_text]; ; 
3; (314 0310 trmdsc (1) = .ptr; : 


OPCSCLUSREPLY 
v04= 


s 3% 11 

3 1 1 msgdsc 

: it \? msgdsc eH "Erpynot_w_message_len]; 
3 i 1? Queue up to broadcast the message 

3 1 i$ replybrd_brkthru_queue (msgdsc, 

3 ¢ 18 trmdsc, | 

3 19 rk$c_device, 
PY 4 0 . 

; 5 0321 ° 

3 $ 8 ¢ press general, 
: 0 0); 

; $56 o35¢ 

; $3 0325 RETURN; 

; 3350 0326 END; 


73 69 6D 20 54 4F 4E 59 50 52 SF SF 4D 4C 43 00080 
68 63 74 61 6D O008F 
010E0014 00094 
00000000' 00098 
0004 00000 
5E 18 C2 00002 
52 08 AC 00 00005 
02 02 A2 91 00009 
0D 13 BRR 
0000" CF 9F QOO0DF 
04 AC DD 00013 
0000G CF 02 FB 00016 
04 0001B 
50 10 A2 YE 0001C 
04 AE 50 0 Boose 
51 Oc A2 3C 00024 
6E 51 DO 00028 
50 é} C8 $8 B 
OC AE 0 0 
08 AE OE A2 3C 000 
7E 7C bp 
7E 7C 00039 
7—E 7C 00058 
7E i 70 00030 
1 DD 0004 
$6 AE 9F 0004 
0 AE OF one 
0000G CF OB FB 00048 
04 00040 
; Routine Size: 78 bytes, Routine Base: S$CODE$S + OOF7 


4-Sep-1984 
ptr = Fis + en (0) = .msg hes pk eet 


P.AAJ: 
P.AAI: 


2 8 
o=ge0°12 r 1: 3:7 AX-11 Bliss-32 V4. 
OPCOM.SRCJCLUSREP LY. B32; 


2: 


text to send 
target name 

type of target 
carriage control 
brkthru flags 
request id 


no completion routine or parameters 


! End of CLUSREPLY_RPYNOT_HANDLER 


-PSECT $PLIT$,NOWRT,NOEXE,2 


ASCII \CLM__RPYNOT mismatch\ 


LONG 17694740 
-ADDRESS P.AAJ 


-PSECT $CODE$,NOWRT,2 


-ENTRY <.se Save R2 


SUBL2 #2 
MOVL MSG. R2 

CMPB ss 2 (R2), 
BEQL _~=«'1$ 

PUSHAB P.AAI 

PUSHL BUFFER_DESC 
CALLS #2, DUMP_LOG_FILE 
MOVAB 16(R2), PTR 
MOVL PTR, TRMDSC+4 
MOVZ2WL 12(R2), RI 
MOVL R1, TRMDSC 
ADDL2 1, PTR 

OVL PTR, MSGDSC+ 
MOVZWL 14(R2), MSGDSC 
CLRQ  =(SP) 

CLRQ = = (SP) 

CLRQ =(SP) 

MOVQ #32, -(SP) 
PUSHL #1 

PUSHAB TRMDSC 

PUSHAB MSGDSC 

CALLS #11, REPLYBRD_BRKTHRU_QUEUE 


AE RRO ATS SRT EOE a RA 5 5 EONS 5 EI OR LP EA cea A aT ee Oe 


oo 
mas 
Mo 
NAN 
—™N 
o- 
ww 
ao00 
oo 
-— 
se 
aa 
oee 
mm 


ides? 
_yorcha 2usee 138s 93:85:28 | HaNcdm BheSeiceeters 035.1 ~_ 


HR OBE D Bam FO ot sete 


OPCS 
v04= 


PSECT SUMMARY 
Name Bytes Attributes 


sets 156 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 325 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
a ee eS Symbols ooo-s--2 Pages Processing 
5 File Total Loaded Percent Mapped Time 
: $25 SSDUAB:(SYSLIBILIB.L 32:1 18619 5 : 1009 00:01.8 
; ~$255$DUA28: COPCOM.0B 06 JOP PCOMLIB.L32;1 633 19 4 00:00.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CLUSREPLY/OBJ=OBJ$:CLUSREPLY MSRC$:CLUSREPLY/UPDATE=(ENH$:CLUSREPLY) 
Size: 325 code + 156 data bytes 


Elapsed Time: 0:38.2 
Lines/CPU Min: 2071 
Lexemes/CPU-Min: 10560 
ponety Used: 97 pages 
Compilation Complete 


Se Se Ge Se Se tee 


5 
3 
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